home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / emula / arosdv19.lha / AROS / intuition / obtaingirport.c < prev    next >
C/C++ Source or Header  |  1996-10-31  |  1KB  |  55 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: obtaingirport.c,v 1.2 1996/10/31 13:52:31 aros Exp $
  4.  
  5.     Desc: Intuition Function ObtainGIRPort()
  6.     Lang: english
  7. */
  8. #include "intuition_intern.h"
  9. #include <clib/graphics_protos.h>
  10.  
  11. /*****************************************************************************
  12.  
  13.     NAME */
  14.     #include <graphics/rastport.h>
  15.     #include <intuition/cghooks.h>
  16.     #include <clib/intuition_protos.h>
  17.  
  18.     AROS_LH1(struct RastPort *, ObtainGIRPort,
  19.  
  20. /*  SYNOPSIS */
  21.     AROS_LHA(struct GadgetInfo *, gInfo, A0),
  22.  
  23. /*  LOCATION */
  24.     struct IntuitionBase *, IntuitionBase, 93, Intuition)
  25.  
  26. /*  FUNCTION
  27.  
  28.     INPUTS
  29.  
  30.     RESULT
  31.  
  32.     NOTES
  33.  
  34.     EXAMPLE
  35.  
  36.     BUGS
  37.  
  38.     SEE ALSO
  39.  
  40.     INTERNALS
  41.  
  42.     HISTORY
  43.     29-10-95    digulla automatically created from
  44.                 intuition_lib.fd and clib/intuition_protos.h
  45.  
  46. *****************************************************************************/
  47. {
  48.     AROS_LIBFUNC_INIT
  49.     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  50.  
  51.     return CloneRastPort (gInfo->gi_RastPort);
  52.  
  53.     AROS_LIBFUNC_EXIT
  54. } /* ObtainGIRPort */
  55.